home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / HyperCard-SuperCard / XCMD Docs / CompileIt! Source Code / xPrint() < prev   
Text File  |  1995-08-19  |  631b  |  21 lines
  1. function xPrint
  2.   put openPicture(curPort@.portRect) into jjj
  3.   copyBits thePort@.portBits,thePort@.portBits,thePort@.portRect,thePort@.portRect,0,nil
  4.   closePicture
  5.   put newHandle(120) into thePrintRec
  6.   prOpen
  7.   PrintDefault(thePrintRec)
  8.   if not PrStlDialog(thePrintRec) then exit xPrint
  9.   if not PrJobDialog(thePrintRec) then exit xPrint
  10.   put PrOpenDoc(thePrintRec,nil,nil) into thePrinterPort
  11.   PrOpenPage  thePrinterPort , NIL
  12.   DrawPicture jjj,curPort@.PortRect
  13.   PrClosePage(thePrinterPort)
  14.   PrCloseDoc(thePrinterPort)
  15.   PrClose
  16.   setPort curPort
  17.   disposHandle thePrintRec
  18.   disposHandle j
  19.   KillPicture jjj
  20. end xPrint
  21.